home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / mouse.swg / 0006_Set Mouse Cursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-08-27  |  752 b   |  29 lines
  1. {
  2. RAPHAEL VANNEY
  3.  
  4. > Can anybody help me out on the Function INT 33 - 9/8. It's the set mouse
  5. > cursor Function. I see that you can draw your own mouse cursor, but I don't
  6. > understand how to move a bitmap into Es:Dx. I don't know the size for
  7. > the bit map to be, or the dimensions. Could anybody help me out?
  8. }
  9.  
  10. Const Disque : Array [0..31] of Word =
  11.       (0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
  12.        0,32766,32766,32760,32760,32766,32382,31806,
  13.        31806,32382,32766,32382,32382,32382,32766,0);
  14.  
  15. Procedure CurseurSouris(Var Motif; x, y : Word); Assembler;
  16. Asm
  17.   Mov  AX, 9     { set cursor shape }
  18.   Mov  BX, x
  19.   Mov  CX, y
  20.   LES  DX, Motif
  21.   Int  $33
  22. end ;
  23.  
  24. begin
  25.   { ... }
  26.   CurseurSouris(Disque, 8, 8);
  27.   { ... }
  28. end.
  29.